<% Set ConnObj = Server.CreateObject("ADODB.Connection") %> <% ConnObj.Open(MyConnStr) %> <% strSQLProd = "SELECT Prodotto.IDProdotto, Prodotto.Descrizione, Prodotto.DescrizioneDettagli, Prodotto.PrezzoL, Prodotto.PrezzoE, Prodotto.PrezzoWebL, Prodotto.PrezzoWebE, Prodotto.Giacenza, Prodotto.Unitàmisura, Prodotto.Note, Prodotto.Voto, Prodotto.fotogrande, Categoria.NomeCategoria, Categoria.IDCategoria " strSQLProd = strSQLProd & "FROM Prodotto INNER JOIN Categoria ON Prodotto.IDCategoria = Categoria.IDcategoria " strSQLProd = strSQLProd & "WHERE (((Prodotto.IDProdotto)= " & request.querystring("idprodotto") & " )) " strSQLProd = strSQLProd & "ORDER BY Categoria.NomeCategoria, Prodotto.Descrizione;" Set rstprodotti = ConnObj.Execute(strSQLProd) %>

Scheda prodotto
     
Giudizio prodotto: <%=rstprodotti("Voto")%>
Commenti
<%=rstprodotti("Descrizione")%>
  
<%=rstprodotti("DescrizioneDettagli")%>
<%=rstprodotti("Note")%>
       
 
£. <%=rstprodotti("PrezzoWebL")%>Euro: <%=rstprodotti("PrezzoWebE")%>
  
 
 
<% ConnObj.close %>

Back